10 REM            WET PAINT
11 REM
12 REM          FRANK LINDSEY
13 REM          BOWLING GREEN
14 REM          KENTUCKY, USA
15 REM          (502)781-3117
16 REM
17 REM LET'S HEAR IT FOR FREE SOFTWARE!
18 REM
19 REM LET'S ALSO HEAR IT FOR MAKING A
20 REM BUCK. WATCH FOR MY OTHER COMMER-
21 REM CIALLY AVAILABLE PROGRAMS.
22 REM
80 PRINT"[147][159][142]"
90 POKE53280,0:POKE53281,0
100 PRINTSPC(11)"[213][201]  [213][201] [213][192][192][201] [213][192][192][192][192][201]
110 [153][166]11)"(null)(null)  (null)(null) (null)(null)TAN(null) MID$TANRIGHT$(null)TAN(null)
120 PRINTSPC(11)"[221][221][213][201][221][221] [221][202][201]    [221][221]
130 [153][166]11)"(null)MID$(null)MID$(null)(null) (null)(null)(null)    (null)(null)
140 PRINTSPC(11)"[221] [213][201] [221] [221][202][192][201]   [221][221]
150 [153][166]11)"MID$TAN(null)MID$TAN(null) MID$TANTAN(null)   MID$(null)
160 PRINTSPC(7)"[213][192][192][201] [213][192][192][201] [213][201] [213][192][192][201][213][201] [213][192][192][192][192][201]
170 [153][166]7)"(null)(null)RIGHT$(null) (null)(null)RIGHT$(null) (null)(null) (null)(null)RIGHT$(null)(null)(null) MID$TANRIGHT$(null)TAN(null)
180 PRINTSPC(7)"[221][202][203][221] [221][173][189][221] [221][221] [221][221][221][221][221][221]   [221][221]
190 [153][166]7)"(null)(null)TAN(null) (null)OR^(null) (null)(null) (null)(null)(null)(null)(null)(null)   (null)(null)
200 PRINTSPC(7)"[221][221]   [221][221][221][221] [221][221] [221][221][221][202][203][221]   [221][221]
210 [153][166]7)"MID$(null)   MID$(null)MID$(null) MID$(null) MID$(null)MID$TANTAN(null)   MID$(null)
250 PRINT"BY FRANK LINDSEY
260 [153]"INSTRUCTIONS (Y/N) ?
300 C=4:K=55302:CV=55329:KR=K+1
310 K=K+1:IFK=CVTHENC=C+1:K=KR:IFC=15THENC=1
320 FORL=80TO520STEP40:POKECL+K+L,C:NEXT
330 GETA$:ON1-(A$="N")-2*(A$="Y")GOTO310,2000,1000
1000 PRINT"[147]CONGRATULATIONS, BUDDY!
1010 [153]"GLAD TO HAVE YOU ON THE TEAM AS THE NEW
1020 PRINT"ASSISTANT PAINTER.  NOW I'M THE BOSS
1030 [153]"AND YOU'LL DO AS YOU'RE TOLD.  I WANT
1040 PRINT"YOU TO PAINT AS MUCH OF THIS WHITE WALL
1050 [153]"GREEN AS YOU CAN.  MY OTHER ASSISTANTS
1060 PRINT"ARE PAINTING IT OTHER COLORS AND I'VE
1070 [153]"JUST FINISHED PAINTING AROUND IT BLUE..
1080 PRINT"YEAH, I LIKE THINGS ABSTRACT, OKAY?!?
1090 [153]"NOW, SMART GUY, I'LL PAY YOU A PENNY
1100 PRINT"FOR EVERY INCH YOU PAINT.  BUT, IF YOU
1110 [153]"OR ANY OF THESE OTHER GUYS PAINT OVER
1120 PRINT"ANY WET PAINT, I'LL BLOW YOU UP!!!!!"
1130 PRINT"NOW USE THE JOYSTICK IN PORT #1 AND":PRINT"GET BUSY!!!":PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
1160 PRINT"(PRESS THE FIRE BUTTON TO START)"
1170 IF(PEEK(56321)AND16)<>0THEN1170
2000 SYS3724